10 REM     "VAULT OF TERROR"
20 REM  BY CLEVELAND M. BLAKEMORE
30 REM          (V4.8)
40 :
50 POKE53280,.:POKE53281,.:GOTO1780
60 REM WALLHANDLER
70 VL=FC:ONFC+1GOSUB720,720,820,850,870
80 RETURN
90 REM DOORHANDLER
100 GOSUB70:ONFC+1GOSUB1040,900,960,1000,1020:RETURN
110 REM SHAFTHANDLER
120 ONFC+1GOSUB1080,1100,1120,1140:RETURN
130 REM EXITHANDLER
140 ONFC+1GOSUB1170,1190,1210,1230:RETURN
150 REM LADDERHANDLER
160 LP=FC:ONFC+1GOSUB1260,1310,1340,1370:RETURN
170 REM COFFINHANDLER
180 ONFC+1GOSUB1400,1430,1460,1480:RETURN
190 REM PRINT BASIC VIEW
200 PRINT"[147][146] [205][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][206]"
210 PRINT" [205][165]                                  [167][206]
220 [153]" (null)FN                                 CLOSETHEN(null)
230 PRINT" [205][165]   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]   [167][206]
240 [153]" (null)FN  THEN(null)                          WAITSTEPFN  THEN(null)
250 PRINT" [205][165][160] [167] [223]                        [146][169] [165] [160][167][206]
260 [153]" (null)FN  THEN THEN(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)FN FN  THEN(null)
270 PRINT" [205][165]  [167] [167][205] [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][160][206][165] [165]  [167][206]
280 [153]"  FN  THEN THEN(null) FNTHEN(null)              WAITSTEPFNTHEN (null)FN FN CLOSETHEN
290 PRINT"  [165]  [167] [167][205] [165][167][167][205]            [206][165][165][167] [206][165] [165]  [167]
300 [153]"  (null)USRUSR(null) THEN(null) FNTHENTHEN(null)(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)(null)FNFNTHEN (null)FN (null)USRUSR(null)
310 PRINT"  [165][213][201][146][167] [167][160] [213][201][146][167][205][165][212][162][162][162][162][162][162][162][162][217][146][167][206][165][213][201][146] [160][165] [165][213][201][146][167]
320 [153]"  FNMID$(null)WAITTHEN THEN  MID$(null)WAITTHEN (null)(null)WAIT(null).LENLENLENLEN.WAIT(null)(null)(null)WAIT FNMID$(null)WAIT  FN FNMID$(null)WAITTHEN
330 PRINT"  [204][175][175][186] [167][160] [165][167][167][206][165][212][146][206][199][146]    [200][146][205][217][146][167][205][165][165][167] [160][165] [204][175][175][186]"
340 PRINT" [206][165][160] [167] [167][206] [165][167][167][206][165][212][146][206][163][163][163][163][163][163][205][217][146][167][205][165][165][167] [205][165][160][165] [160][167][205]
350 [153]" (null)FN  THENCLOSETHEN(null) FNTHENTHEN(null)(null)STEPTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)SQR(null)FNFNTHEN (null)FN FN  THEN(null)
360 PRINT" [206][165][160][160][167][160][167][206] [165][167][167][206][163][163][163][163][163][163][163][163][163][163][163][163][205][165][165][167] [205][165] [165]  [167][205]
370 [153]" (null)FN CLOSETHENCLOSETHEN(null) (null)SQR(null)              (null)(null)SQR (null)FN FN CLOSETHEN(null)
380 PRINT" [206][165][160][160][167] [167][206][163][160] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  [163][205][165] [165]  [167][205]
390 [153]" (null)FNCLOSECLOSETHENCLOSETHEN                        FN FN  THEN(null)
400 PRINT" [206][165][160][160][167] [206]                        [205][160][165][160] [167][205]
410 [153]" (null)(null)ANDANDSQR(null)                          (null)(null)ANDANDSQR(null)"
420 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
430 [153]"   ";D$(CD);"  CLOSE     #CLOSE$CLOSE%CLOSE&CLOSE'CLOSE(CLOSE)CLOSE* +       ";D$(CD);"  WAIT";
440 [153]L$(DD);:[142]
450 [143] EVERYTHING FROM HERE ON IS ALTERATIONS ON THE BASIC VIEWPOINT
460 [143] **LEFT SIDE INTERSECTING HALLS*
470 [143] **1ST LEFT BLOCK**
480 [153]"USR(null)CMDCMD";:[129]X[178].[164]19:[153]" THENCMDCMD";:[130]:[153]"ANDSQRCMDCMD WAITSTEP":[142]
490 [143] **2ND LEFT BLOCK**
500 [153]"";[163]8)"USR(null)CMDCMD";:[129]X[178].[164]8:[153]" THENCMDCMD";:[130]:[153]"ANDSQRCMDCMDWAITSTEP"
510 [142]
520 [143] **3RD LEFT BLOCK**
530 [153]"";[163]13)"(null)CMD";:[129]X[178].[164]3:[153]"THENCMD";:[130]:[153]"SQRCMDWAITSTEP"
540 [142]
550 [143] **4TH LEFT BLOCK**
560 [153]"";[163]16)"(null)CMDSQRCMDWAITSTEP";
570 [142]
580 [143] *RIGHT SIDE INTERSECTING HALLS*
590 [143] *1ST RIGHT BLOCK
600 [153]"";[163]38)"(null)CMD";:[129]X[178].[164]19:[153]"FNCMD";:[130]:[153]"(null)CMDWAIT(null)":[142]
610 [143] *2ND RIGHT BLOCK
620 [153]""[163]30)"(null)USRCMDCMD";:[129]X[178].[164]8:[153]"FN CMDCMD";:[130]:[153]"(null)ANDCMDWAIT(null)
630 RETURN
640 REM *3RD RIGHT BLOCK
650 PRINT"";TAB(26)"[207][157]";:FORX=.TO3:PRINT"[165][157]";:NEXT:PRINT"[204][157][146][223]"
660 RETURN
670 REM *4TH RIGHT BLOCK
680 PRINT"";TAB(23)"[207][157][204][157][146][223]"
690 RETURN
700 REM MAIN HALL BRICK WALLS
710 REM *1ST WALL
720 PRINT"";:FORX=.TO3:PRINTTAB(6);
730 PRINT"[207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207]"
740 PRINTTAB(6)"[204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204]"
750 PRINTTAB(6)"[208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208]"
760 PRINTTAB(6)"[186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186]"
770 NEXT
780 PRINTTAB(6)"[207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207]"
790 PRINTTAB(6)"[204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204]"
800 RETURN
810 REM *2ND WALL
820 PRINT"";:FORX=.TO4:PRINTTAB(12);"[208][183][208][183][208][183][208][183][208][183][208][183][208][183][208][183]"
830 PRINTTAB(12);"[183][208][183][208][183][208][183][208][183][208][183][208][183][208][183][208]":NEXT:RETURN
840 REM *3RD WALL
850 PRINT"";:FORX=.TO4:PRINTTAB(15);"[168][168][168][168][168][168][168][168][168][168]":NEXT:RETURN
860 REM *4TH WALL
870 PRINT"";:PRINTTAB(18)"[166][166][166][166]":RETURN
880 REM OBJECTS IN MAIN HALL
890 REM *1ST DOOR
900 PRINT"";TAB(15)"::::::::::":PRINTTAB(15)":[146][173][173][173][173][173][173][173][173]:"
910 PRINTTAB(15)":[146][173][207][183][183][183][183][208][173]:":PRINTTAB(15)":[146][173][165][195][195][195][195][167][173]:"
920 PRINTTAB(15)":[146][173][204][175][175][175][175][186][173]:":PRINTTAB(15)":[146][173][173][173][173][173][173][173][194]:"
930 PRINTTAB(15)":[146][173][173][173][173][173][173][173][211]:"
940 FORX=.TO5:PRINTTAB(15)":[146][173][173][173][173][173][173][173][173]:":NEXT:RETURN
950 REM *2ND DOOR
960 PRINT"";:PRINTTAB(17)"::::::":PRINTTAB(17)":[146][173][173][173][173]:"
970 PRINTTAB(17)":[146][173][195][195][173]:":PRINTTAB(17)":[146][173][173][173][209]:"
980 FORX=.TO3:PRINTTAB(17)":[146][173][173][173][173]:":NEXT:RETURN
990 REM *3RD DOOR
1000 PRINT"";TAB(19)"[172][187]":FORX=.TO2:PRINTTAB(19)"[173][173]":NEXT:RETURN
1010 REM *4TH DOOR
1020 PRINT"";TAB(19)"[220][220]":RETURN
1030 REM INSIDE ROOM
1040 PRINT"":FORX=.TO21:PRINT"[214][214]"TAB(38)"[219]":NEXT
1050 PRINT"[214][206][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][146][205]";:GOSUB890:RETURN
1060 REM ****** SHAFTS ******
1070 REM *1ST SHAFT
1080 PRINT"";TAB(12)"[169][207][183][183][183][183][183][183][183][183][183][183][183][183][208][223]";:RETURN
1090 REM *2ND SHAFT
1100 PRINT"";TAB(14)"[169][207][183][183][183][183][183][183][183][183][208][223]";:RETURN
1110 REM *3RD SHAFT
1120 PRINT"";TAB(16)"[169][207][183][183][183][183][208][223]";:RETURN
1130 REM *4TH SHAFT
1140 PRINT"";TAB(18)"[169][207][208][223]";:RETURN
1150 REM **** CEILING EXITS ****
1160 REM *1ST EXIT
1170 PRINT""TAB(12)"[223][204][175][175][175][175][175][175][175][175][175][175][175][175][186][146][169]":RETURN
1180 REM *2ND EXIT
1190 PRINT""TAB(14)"[223][204][175][175][175][175][175][175][175][175][186][146][169]":RETURN
1200 REM *3RD EXIT
1210 PRINT"";TAB(16)"[223][204][175][175][175][175][186][146][169]":RETURN
1220 REM *4TH EXIT
1230 PRINT"";TAB(18)"[223][204][186][146][169]":RETURN
1240 REM **** LADDERS ****
1250 REM *1ST LADDER
1260 PRINT"";:PRINTTAB(14)"[167]"TAB(25)"[165]"
1270 FORX=.TO6:PRINTTAB(14)"[167][197][197][197][197][197][197][197][197][197][197][165]":PRINTTAB(14)"[167]"TAB(25)"[165]"
1280 PRINTTAB(14)"[167]"TAB(25)"[165]":NEXT
1290 PRINTTAB(14)"[167][197][197][197][197][197][197][197][197][197][197][165]":PRINTTAB(14)"[167]"TAB(25)"[165]":RETURN
1300 REM *2ND LADDER
1310 PRINT"";:FORX=.TO6
1320 PRINTTAB(16)"[217][197][197][197][197][197][197][212]":PRINTTAB(16)"[217]"TAB(23)"[212]":NEXT:RETURN
1330 REM *3RD LADDER
1340 PRINT"";:FORX=.TO7
1350 PRINTTAB(18)"[172][162][162][187]":NEXT:RETURN
1360 REM *4TH LADDER
1370 PRINT"";:FORX=.TO2:PRINTTAB(19)"[171][179]":NEXT:RETURN
1380 REM **** COFFINS ****
1390 REM *1ST COFFIN
1400 PRINT"";TAB(11)"[169][206]--------------[205][223]"
1410 PRINTTAB(10)"[169][206]----------------[205][223]":RETURN
1420 REM *2ND COFFIN
1430 PRINT"";TAB(14)"[169][206]========[205][223]":PRINTTAB(14)"[207][163][163][163][163][163][163][163][163][163][163][208]"
1440 PRINTTAB(14)"[207][163][178][163][163][163][163][163][163][178][163][208]":RETURN
1450 REM *3RD COFFIN
1460 PRINT""TAB(16)"[169][206]====[205][223]":PRINTTAB(16)"[207][178][163][163][163][163][178][208]":RETURN
1470 REM *4TH COFFIN
1480 PRINT""TAB(17)"[169]====[223]":PRINTTAB(17)"[207][178][163][163][178][208]":RETURN
1490 REM ***LOOK ROUTINE ***
1500 CEM=FNTE(.):POKE648,CEM:PRINTL$(DD);
1510 GOSUB190
1520 FC=4:VL=FC:LP=FC:LV=CD-1+4*-(CD=1):RV=CD+1+4*(CD=4)
1530 EBM=FNCP(.):IFEBM>-1ANDEBM<256THEN1560
1540 IFFCTHENFC=FC-1:GOTO1530
1550 RETURN
1560 EL=FNCP(LV):ER=FNCP(RV)
1570 IF(DL(EBM,.))THEN1590
1580 GOSUB70:FC=FC-1:ON1-(FC<.)GOTO1530,1670
1590 IFDL(EL,.)ANDFC<4THENONFC+1GOSUB480,500,530,560
1600 IFDL(ER,.)ANDFC<4THENONFC+1GOSUB600,620,650,680
1610 FORD=1TO5:IF(DL(EBM,.)ANDBO(D))THENONDGOSUB180,120,140,160,100
1620 PRINT"[146]";:NEXT:FC=FC-1:IFFC>-1THEN1530
1630 IFDL(CL,2)=.THEN1670
1640 FORX=.TO8:POKEXR,22:POKEYR,.:POKEPR,.:SYSPLOT
1650 IF(DL(CL,2)ANDBO(X))THENPRINTTAB(X*4+3);OA$(X)
1660 NEXT
1670 GOSUB1700
1680 CSM=FNSW(.):POKE53272,(PEEK(53272)AND15)ORCSM:POKEFNPM(U),7:RETURN
1690 REM MONSTER DISPLAY
1700 IFFCANDVLTHENVL=VL-1
1710 D=61:POKEFNMP(1),D:POKEFNMP(2),D:POKEFNMP(3),D:POKEFNMP(5),D
1720 EL=.:ER=.:FORX=VLTO.STEP-1:FC=FNCM(X):IFDL(FC,1)=.THEN1760
1730 FC=DL(FC,1)-1:EL=(ELORSP(X+4)):IFX>LPTHENER=(ERORSP(X+4))
1740 MB=SP(X)-1:FORD=1TOLEN(SB$(X,FC)):POKEFNMP(MB+D),ASC(MID$(SB$(X,FC),D,1))
1750 POKEBC+SP(X)+D,CS(FC):NEXT
1760 NEXT:POKEV+21,EL:POKEV+27,ER:RETURN
1770 REM *VARIABLE/FUNCTION DECLARATION
1780 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)
1790 POKE53272,PEEK(53272)AND15:POKE648,192:POKE53272,(PEEK(53272)AND240)OR12
1800 POKE53270,PEEK(53270)AND247
1810 PRINTCHR$(147):GOSUB3020:GOSUB5830
1820 DIMDL(255,2),BO(15),SP(7),SB$(3,7),D$(4),L$(6),OA$(8),CS(7),M(15),MH(15)
1830 DIMHC(2):X=.:D=.:FC=.:CL=17:CD=2:VL=.:EL=.:ER=.:VS=.
1840 D(1)=1:D(2)=16:D(3)=-1:D(4)=-16:CS(.)=9:CS(1)=2:CS(2)=6:CS(3)=9:CS(4)=4
1850 CS(5)=14:CS(6)=13:CS(7)=1:LP=.:P=.:L=1:LF=10
1860 SP(.)=.:SP(1)=4:SP(2)=6:SP(3)=7:SP(4)=15:SP(5)=48:SP(6)=64:SP(7)=128
1870 TGL=16:CSM=.:CEM=192:V=53248
1880 D$(1)="E":D$(2)="S":D$(3)="W":D$(4)="N"
1890 NJ=255:FJ=254:LJ=251:RJ=247:BJ=253:US=239:MU=237:U=.
1900 TL=388:DD=6:PLOT=65520:AR=780:XR=781:YR=782:PR=783:S=54272:BC=V+38
1910 RU=156:CU=142:ALL=511:HX=157:WL=17:CC=204:CR$=CHR$(13)
1920 DEF FNCP(X)=FC*D(CD)+(CL+D(X)):DEF FNSW(X)=(TGL-CSM)
1930 DEF FNTE(X)=(TL-CEM):DEF FNCM(X)=X*D(CD)+CL:DEF FNMP(X)=CEM*256+1016+X
1940 DEF FNPM(X)=55296+972+(X*2)
1950 FORX=.TO15:BO(X)=2^X:NEXT:L$(.)="":L$(1)="[155]":L$(2)="[152]":L$(3)="[151]"
1960 L$(4)="[151]":L$(5)="":L$(6)="[144]":HC(.)=2:HC(1)=8:HC(2)=10
1970 FORX=.TO255:READD:DL(X,.)=D:NEXT
1980 FORX=.TO8:READA$:OA$(X)=A$:NEXTX
1990 FORX=.TO15:READA:M(X)=A:NEXTX
2000 FORX=3TO.STEP-1:FORD=.TO7:READA$:SB$(X,D)=A$:NEXTD,X
2010 FORX=.TO8
2020 A=INT(RND(1)*93+34):IFDL(A,.)=.THEN2020
2030 DL(A,1)=M(X):M(X)=A:MH(X)=X*4+1:NEXT
2040 FORX=9TO15
2050 A=INT(RND(1)*96+142):IFDL(A,.)=.THEN2050
2060 DL(A,1)=M(X):M(X)=A:MH(X)=X*4+1:NEXT
2070 D=52288:FORX=.TO767:READA:POKED+X,A:NEXT:FORX=.TO63:POKE53055+X,.:NEXT
2080 POKEXR,23:POKEYR,1:POKEPR,.:SYSPLOT
2090 PRINT"[152]F1 START NEW GAME  [152]F2 LOAD OLD GAME";:POKE198,.
2100 GETA$:IFA$=""THEN2100:IFA$<>CHR$(133)ORA$<>CHR$(137)THEN2100
2110 IFA$=CHR$(137)THENGOSUB3300
2120 POKEXR,24:POKEYR,.:POKEPR,.:SYSPLOT
2130 PRINTTAB(3)"[151]CREATED BY CLEVELAND M. BLAKEMORE "
2140 DL(CC,2)=BO(8)
2150 POKEV+21,.:POKEV+23,127:POKEV+29,15:POKEV,150:POKEV+1,193:POKEV+2,151
2160 POKEV+3,151:POKEV+4,119:POKEV+5,109:POKEV+6,167:POKEV+7,109:POKEV+8,164
2170 POKEV+9,174:POKEV+10,164:POKEV+11,133:POKEV+12,168:POKEV+13,152
2180 POKEV+14,172:POKEV+15,160
2190 REM *** JOYSTICK ROUTINE ***
2200 GOSUB4070:GOSUB1500:IT=TI+1000
2210 JOY=PEEK(56321)
2220 IFRND(1)>.93THENPOKES+1,RND(1)*7+2
2230 B=DL(CL,1):IFBANDRND(1)+B/100>.95THENGOSUB2590
2240 IFTI>ITTHENGOSUB3080:GOTO2370
2250 IFJOY=NJTHEN2210
2260 IF(DL(CL+D(CD),.)ANDBO(5+CD))THEN2280
2270 IFJOY=FJANDDL(CL+D(CD),.)THENCL=CL+D(CD):GOTO2360
2280 IF(DL(CL-D(CD),.)ANDBO(5))THEN2300
2290 IFJOY=BJANDDL(CL-D(CD),.)THENCL=CL-D(CD):GOTO2360
2300 IFJOY=RJTHENCD=CD+1:GOTO2350
2310 IFJOY=LJTHENCD=CD-1:GOTO2350
2320 IFJOY=USTHENONU+1GOSUB2710,2730,80,2810,2850,2910,2950,80,80:GOTO2210
2330 IFJOY=MUTHENGOSUB2430:GOSUB4070:GOTO2210
2340 GOSUB4030:GOSUB4070:GOTO2210
2350 CD=CD+((CD=5)*4)+((CD=.)*-4)
2360 GOSUB1500:GOTO2210
2370 ZZ=DD:VS=VS+1:IFVS=DD*6THENVS=.:DD=DD+((DD<6)*-1):IFDD=6THENL=(LAND254)
2380 IFZZ<>DDTHENPOKE648,FNTE(.):PRINTL$(DD);"[147]":POKE648,CEM
2390 LF=LF+((LF<60)*-.4):IF(LAND1)=.THENDD=6
2400 POKE53280,(LF<5)*-2+(LF>=5ANDLF<10)*-7
2410 GOTO2210
2420 REM ** COMMAND BAR **
2430 POKE198,.
2440 IFCU=14THENCU=142:PRINTCHR$(9);CHR$(CU);CHR$(8);:GOSUB3450:POKEV+33,.
2450 FORX=.TO8:IF(LANDBO(X))THENPOKEFNPM(X),10
2460 NEXT:X=.:A=FRE(.):A=.:IF(LAND(BO(U)))THENPOKEFNPM(U),7
2470 IFPEEK(56321)<>NJTHEN2470
2480 POKEFNPM(X),1:IF(LANDBO(A))THENPOKEFNPM(A),10:GOTO2500
2490 POKEFNPM(A),2
2500 FORJY=1TO50:NEXT:JY=PEEK(56321):GETA$:IFA$=CHR$(140)THEN3210
2510 P=L:IFJY=RJTHENA=X:X=X+1+(X=8)*9
2520 IFJY=USAND(LANDBO(X))THENPOKEFNPM(U),10:U=X:POKEFNPM(X),7:GOSUB4020
2530 IFJY=USTHENRETURN
2540 IFJY=FJAND(DL(CL,2)ANDBO(X))THENL=(LORBO(X)):DL(CL,2)=DL(CL,2)-BO(X)
2550 IFJY=BJAND(LANDBO(X))THENL=(LAND(511-BO(X))):DL(CL,2)=DL(CL,2)ORBO(X):U=.
2560 IFL<>PTHENGOSUB4030:GOSUB1500:GOTO2440
2570 GOTO2480
2580 REM MONSTER HITS
2590 IFB=6THENU=.:DL(HX,2)=DL(HX,2)OR(LAND238):L=LAND273
2600 IFCU=14THENRETURN
2610 D=INT(RND(1)*3+1):POKE53281,HC(D-1):LF=LF-(B/((LAND4)+1))+-D
2620 FORT=1TO100:NEXT:POKE53281,.:IFLF<1THEN2650
2630 POKE53280,(LF<5)*-2+(LF>=5ANDLF<10)*-7:GOSUB4100:GOSUB4070:RETURN
2640 REM PLAYER KILLED
2650 FORX=.TO304:POKEV+33,XAND15:NEXT:POKEV+32,.:GOSUB3410:GOSUB6430
2660 POKE198,.
2670 GETA$:IFA$=""THEN2670
2680 IFA$="N"THENSYS64738
2690 POKEV+21,.:RUN
2700 REM TORCH
2710 IFDD=6AND(LAND1)THENVS=.:DD=1:GOSUB1500:RETURN
2720 REM SWORD
2730 IFB=.ORRND(.)+LF/100<.5THENGOSUB4100:RETURN
2740 POKE53281,5:FORT=1TO100:NEXT:POKE53281,.:FORX=.TO15
2750 ON1-(M(X)=.)GOTO2760,2790
2760 IFCL=M(X)THENMH(X)=MH(X)-ABS(RND(.)+((LAND2)*1)+LF/5)
2770 IFMH(X)>.THEN2790
2780 M(X)=.:DL(CL,1)=.:POKEV+21,PEEK(V+21)AND240:GOSUB3410:GOSUB2800
2790 NEXT:GOSUB4100:GOSUB4070:RETURN
2800 LF=LF+B/4:DL(CL,2)=(DL(CL,2)ORBO(B-1)):GOSUB1500:GOSUB4030:RETURN
2810 REM ** RING **
2820 CU=RU-CU:PRINTCHR$(9);CHR$(CU);CHR$(8);:POKE53281,(CU=14)*-4
2830 GOSUB3450:GOSUB4070:RETURN
2840 REM ROPE
2850 IF(DL(CL,.)ANDBO(2))THENCL=CL+128:GOSUB3970:GOSUB1500:GOSUB4070:RETURN
2860 IF(DL(CL,.)AND24)=24AND(LAND384)=384THENDL(CL,2)=DL(CL,2)ORBO(8):L=LAND255
2870 IF(DL(CL,.)AND24)=24THENCL=CL-128:GOSUB3920:GOSUB1500:GOSUB4070:RETURN
2880 IFCL=WLANDL=ALLTHEN2990
2890 GOSUB4030:GOSUB4070:RETURN
2900 REM WAND
2910 IFB=6THENGOTO2740
2920 DL(CL+D(CD),.)=(DL(CL+D(CD),.)AND63):GOSUB3450:GOSUB4070
2930 RETURN
2940 REM ** KEY **
2950 IF(DL(CL+D(CD),.)ANDBO(5))=.THENRETURN
2960 IF(DL(CL+D(CD),.)ANDBO(5+CD))THENDL(CL+D(CD),.)=DL(CL+D(CD),.)-BO(5+CD)
2970 GOSUB4100:GOSUB4070:RETURN
2980 REM       VICTORY
2990 GOSUB6140
3000 GOSUB3450:GOTO2660
3010 REM *** LOAD CHARACTER SET ***
3020 FORX=.TO32:READA:POKE53200+X,A:NEXT:POKE56334,PEEK(56334)AND254
3030 POKE1,PEEK(1)AND251:SYS53200:POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
3040 READA:IFA=-1THENRETURN
3050 FORX=.TO7:READD:POKE61440+A*8+X,D:NEXT:GOTO3040
3060 REM ** MONSTER MOVEMENT
3070 D=.:FC=8:IFCL>127THEND=9:FC=15
3080 P=6:D=.:FC=8:IFCL>127THEND=9:FC=15
3090 FORX=DTOFC:ON1-(M(X)=.)GOTO3100,3160
3100 IFCL<M(X)-PTHENA=M(X)+D(4)
3110 IFCL>M(X)+PTHENA=M(X)+D(2)
3120 IFCL>M(X)ANDCL<M(X)+PTHENA=M(X)+D(1)
3130 IFCL<M(X)ANDCL>M(X)-PTHENA=M(X)+D(3)
3140 IFA<.ORA>255THEN3160
3150 IFDL(A,.)ANDDL(A,1)=.THENDL(A,1)=DL(M(X),1):DL(M(X),1)=.:M(X)=A
3160 NEXT
3170 D=DL(CL,1):IFDTHENONDGOSUB3540,3540,3630,3630,3690,80,3860,3780:GOSUB4070
3180 POKEV+21,.:FC=.:GOSUB1700:IT=TI+1000:RETURN
3190 RETURN
3200 REM  SAVE GAME ROUTINE
3210 PRINT"[146] SAVING";
3220 OPEN1,8,15:PRINT#1,"S0:LASTDUNGEON":CLOSE1
3230 OPEN1,8,2,"LASTDUNGEON,U,W":FORX=.TO2:FORD=.TO255:PRINT#1,DL(D,X) CR$
3240 NEXTD:PRINT".";:NEXTX:PRINT".";:FORX=.TO15:PRINT#1,M(X),CR$,MH(X),CR$
3250 NEXTX:PRINT".";
3260 PRINT#1,CL,CR$,CD,CR$,LF,CR$,L,CR$,U,CR$,DD,CR$,VS,CR$,HX,CR$,WL,CR$
3270 PRINT#1,CC,CR$
3280 CLOSE1:GOTO2430
3290 REM    LOAD ROUTINE
3300 :
3310 F$="LASTDUNGEON"
3320 OPEN1,8,15:PRINT#1,"I0:":CLOSE1:OPEN1,8,2,F$+",U,R"
3330 FORX=.TO2:FORD=.TO255:INPUT#1,DL(D,X):NEXTD,X:FORX=.TO15
3340 INPUT#1,M(X),MH(X)
3350 NEXTX
3360 INPUT#1,CL,CD,LF,L,U,DD,VS,HX,WL,CC
3370 CLOSE1:OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1
3380 IFATHENPRINT""TAB(8)A;B$;C;D
3390 FORT=1TO5000:NEXT:RETURN
3400 REM * SOMETHING DIED *
3410 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15:POKES+5,8:POKES+6,255
3420 POKES+4,21:F1=2:FORZ=1TO24:F2=80:POKES+1,F1:FORY=1TO5:POKES+15,F2
3430 F2=F2/1.1:NEXTY:F1=F1+9:NEXTZ:POKES+6,15:RETURN
3440 REM **SORCERY**
3450 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
3460 POKES+5,8:POKES+6,255:POKES+4,23:F1=10
3470 FORZ=1TO30:F2=30
3480 POKES+1,F1
3490 FORY=1TO10:POKES+15,F2
3500 F2=F2*1.01:NEXTY
3510 F1=F1+1:NEXTZ
3520 POKES+6,15:RETURN
3530 REM **SPIDER**
3540 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
3550 POKES+5,8:POKES+6,255:POKES+4,23:F1=11:F2=25
3560 FORZ=5TO50
3570 POKES+1,F1
3580 POKES+15,F2
3590 F2=F2*.97
3600 F1=F1+1:NEXTZ
3610 POKES+6,15:RETURN
3620 REM *** RATS ***
3630 FORP=STOS+24:POKEP,.:NEXT
3640 POKES+24,15:POKES+5,24:POKES+6,248
3650 POKE S+4,33
3660 FORP=17TO13STEP-1:POKES,P:FORT=125TO135:POKES+1,T:NEXTT,P:POKES+4,32
3670 RETURN
3680 REM **GOBLIN**
3690 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
3700 POKES+5,8:POKES+6,255:POKES+4,23:F1=15:F2=15
3710 FORZ=1TO10:
3720 POKES+1,F1
3730 POKES+15,F2
3740 F2=F2*1.01
3750 F1=F1*1.3:NEXTZ
3760 POKES+6,15:RETURN
3770 REM ** NAGA **
3780 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
3790 POKES+5,8:POKES+6,255:POKES+4,23:F1=8:F2=4
3800 FORZ=1TO30:
3810 POKES+1,F1
3820 POKES+15,F2
3830 F2=F2*1.01
3840 F1=F1+1:NEXTZ
3850 POKES+6,15:RETURN
3860 REM *** SERPENTS ***
3870 FORP=STOS+24:POKEP,.:NEXT
3880 POKES+24,15:POKES+5,155:POKES+6,245
3890 POKE S+4,129:FORP=50TO55:POKE S,D
3900 FORT=35TO55:POKES+1,T:NEXTT,P:POKES+4, 128:FORT=1TO 100:NEXT:RETURN
3910 REM * SHAFT UP *
3920 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
3930 POKES+5,8:POKES+6,255:POKES+4,23
3940 FORF1=4TO18STEP2:POKES+15,F1
3950 FORF2=10TO180STEP2:POKES+1,F2:NEXTF2,F1:POKES+6,15:RETURN
3960 REM * SHAFT DOWN *
3970 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
3980 POKES+5,8:POKES+6,255:POKES+4,23
3990 FORF=15TO8STEP-1
4000 FORF1=18TO10STEP-2:POKES+15,F1
4010 FORF2=12TO4STEP-1:POKES+1,F2:POKES+15,F:NEXTF2,F1,F:POKES+6,15:RETURN
4020 REM * BEEP *
4030 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
4040 POKES+5,96:POKES+6,96:POKES+4,23:POKES+2,85:POKES+1,36
4050 FORF=1TO10:NEXT:POKES+6,15:RETURN
4060 REM *** SINISTER MUSIC ***
4070 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
4080 POKES+1,10:POKES,5:POKES+5,129:POKES+6,129:POKES+4,21:RETURN
4090 REM ** SLASH **
4100 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
4110 POKES+1,25:POKES,5:POKES+5,20:POKES+6,20:POKES+4,129:FORT=1TO75:NEXT
4120 POKES+4,128:RETURN
4130 REM ML PROGRAM
4140 DATA 169,0,133,251,133,253,169,208,133,252,169,240,133,254,162,8
4150 DATA 160,0,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96
4160 REM CHARACTER DATA
4170 DATA035,024,060,110,110,110,110,110,110
4180 DATA036,255,199,231,129,000,060,126,255
4190 DATA037,255,060,024,255,219,153,153,024
4200 DATA038,024,024,060,102,102,060,000,000
4210 DATA039,000,126,127,127,112,126,000,255
4220 DATA040,110,110,110,110,110,110,110,110
4230 DATA042,060,060,255,153,060,060,060,060
4240 DATA081,255,231,231,231,231,219,195,231
4250 DATA083,231,195,153,189,165,153,195,255
4260 DATA086,027,031,031,027,059,123,219,155
4270 DATA088,126,102,102,126,024,024,030,030
4280 DATA091,216,248,248,216,220,222,219,217
4290 DATA092,175,088,171,088,168,088,168,088
4300 DATA102,219,054,219,102,219,054,219,102
4310 DATA104,024,255,192,192,192,255,024,024
4320 DATA107,031,024,031,024,031,024,031,024
4330 DATA108,255,182,255,191,240,176,247,176
4340 DATA109,255,129,255,129,255,255,129,255
4350 DATA115,248,024,248,024,248,024,248,024
4360 DATA123,255,109,255,253,015,013,239,013
4370 DATA163,255,159,159,239,247,251,253,255
4380 DATA164,239,239,239,239,239,199,239,239
4390 DATA165,189,129,153,189,165,129,195,231
4400 DATA166,255,255,231,219,219,231,255,255
4410 DATA167,207,183,123,195,129,000,255,255
4420 DATA168,199,239,131,239,239,239,239,239
4430 DATA169,199,215,199,239,239,239,231,231
4440 DATA170,129,195,231,195,153,016,153,195
4450 DATA171,255,255,102,000,090,000,255,255
4460 DATA173,255,129,255,255,231,231,255,255
4470 DATA186,255,231,255,231,255,231,255,231
4480 DATA189,255,129,255,239,255,129,255,239
4490 DATA197,255,000,255,255,255,255,000,255
4500 DATA220,250,021,218,021,026,021,026,021
4510 DATA230,054,177,129,108,108,153,153,102
4520 DATA242,255,255,189,189,129,255,219,255,-1
4530 DATA .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
4540 DATA .,8,2,1,2,1,.,1,1,1,.,1,352,4,2,.
4550 DATA .,1,.,16,.,1,.,1,.,1,32,1,.,2,2,.
4560 DATA .,1,.,1,1,2,16,1,.,1,.,1,.,.,1,.
4570 DATA .,4,1,2,.,1,.,1,2,1,1,2,1,.,4,.
4580 DATA .,1,.,1,.,1,1,1,.,.,.,.,1,.,.,.
4590 DATA .,2,1,1,1,1,32,1,1,4,1,2,1,1,34,.
4600 DATA .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
4610 DATA .,2,1,1,2,16,2,1,1,1,.,2,2,2,2,.
4620 DATA .,1,.,1,.,1,.,1,.,1,1,1,1,984,2,.
4630 DATA .,2,1,1,.,1,2,1,2,1,.,32,2,2,2,.
4640 DATA .,.,.,2,.,1,.,1,.,1,.,129,.,.,.,.
4650 DATA .,24,1,1,1,1,.,2,1,1,.,1,65,.,24,.
4660 DATA .,1,.,.,1,.,1,1,.,1,.,1,.,.,1,.
4670 DATA .,1,2,2,1,2,1,.,.,168,.,129,2,1,1,.
4680 DATA .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
4690 REM OBJECT SHAPE STRINGS
4700 DATA "[145][219][146][157][205][205][157][205][205]"
4710 DATA "[145][145]#[157]([157]([157]*"
4720 DATA "[145][223][169][157][157][157][157][194][146]$$[194][157][157][157][157][194][178][178][194]"
4730 DATA "&"
4740 DATA "[202][201][157][157][166][166][166]"
4750 DATA "[145]*[157][146][194][157][194]"
4760 DATA "[157][216]"
4770 DATA "[145][145][157][157][157][223] [146][169][157][157][157][169][163][223][157][157][157][157][169] [146]'[160][223][157][157][157][157][157][146][223][163][163][163][146][169]"
4780 DATA "[157][157][223][169][223][169][157][157][157][157]===="
4790 REM MONSTER TYPES
4800 DATA 1,1,2,2,3,3,4,5,5,6,6,6,7,7,7,8
4810 REM MONSTER STRING SHAPE DATA
4820 DATA 1,1,2,2,3,4,<,<
4830 DATA 1,1,2,2,3,4,<,<
4840 DATA 1,1,2,2,3,65,":;",":;"
4850 DATA 1,1,2,2,3,65,":978",":978"
4860 REM MONSTER SPRITE DATA
4870 DATA000,000,000,000,000,000,000,000
4880 DATA000,000,000,000,004,000,032,006
4890 DATA000,096,005,060,160,008,255,016
4900 DATA016,255,008,019,255,200,036,255
4910 DATA036,009,255,144,018,255,072,037
4920 DATA126,164,042,060,084,036,024,036
4930 DATA042,060,084,004,090,032,002,126
4940 DATA064,001,090,128,000,036,000,000
4950 DATA000,000,000,056,255,000,067,255
4960 DATA192,055,255,224,015,255,240,015
4970 DATA255,240,015,255,240,014,255,176
4980 DATA014,127,048,030,190,184,062,221
4990 DATA188,127,107,126,252,255,159,120
5000 DATA221,143,120,073,007,056,127,003
5010 DATA024,093,003,012,008,030,030,000
5020 DATA047,053,000,010,085,000,020,000
5030 DATA052,066,015,024,102,031,044,090
5040 DATA033,006,102,001,003,090,001,007
5050 DATA165,227,011,219,211,021,231,175
5060 DATA046,231,119,089,126,189,113,219
5070 DATA153,096,165,001,113,153,129,107
5080 DATA126,193,102,195,097,037,129,161
5090 DATA015,000,241,015,000,241,010,000
5100 DATA081,014,000,113,058,000,092,220
5110 DATA000,120,000,000,132,000,001,074
5120 DATA016,001,002,040,003,135,040,005
5130 DATA134,144,014,205,144,031,123,208
5140 DATA061,183,248,061,207,228,041,183
5150 DATA100,041,207,044,041,255,056,026
5160 DATA001,024,003,207,000,003,183,000
5170 DATA007,207,000,005,122,128,011,239
5180 DATA128,013,123,064,013,086,192,220
5190 DATA000,248,000,001,004,000,002,002
5200 DATA000,002,138,000,002,002,000,002
5210 DATA002,000,002,003,006,003,007,009
5220 DATA003,143,009,003,223,009,013,254
5230 DATA198,030,253,230,063,123,246,127
5240 DATA183,255,191,207,247,223,183,250
5250 DATA159,207,242,159,255,242,151,255
5260 DATA210,103,255,204,002,000,064,231
5270 DATA003,231,192,007,219,224,007,189
5280 DATA224,015,219,224,015,231,240,015
5290 DATA255,240,015,255,240,015,255,240
5300 DATA015,255,240,015,255,240,015,255
5310 DATA240,015,255,240,031,255,248,031
5320 DATA255,248,031,127,216,061,239,124
5330 DATA047,191,236,058,250,172,045,149
5340 DATA246,095,086,174,164,221,202,102
5350 DATA000,000,254,000,001,127,000,002
5360 DATA223,000,004,207,000,011,103,000
5370 DATA021,191,000,043,215,000,087,223
5380 DATA000,087,224,000,087,243,000,091
5390 DATA251,000,045,255,000,022,255,000
5400 DATA011,000,000,005,191,000,002,192
5410 DATA000,001,063,000,000,213,000,000
5420 DATA090,000,000,045,000,000,042,220
5430 DATA127,000,000,254,128,000,251,064
5440 DATA000,243,032,000,230,208,000,253
5450 DATA168,000,235,212,000,251,234,000
5460 DATA007,234,000,207,234,000,223,218
5470 DATA000,255,180,000,255,104,000,000
5480 DATA208,000,253,160,000,003,064,000
5490 DATA252,128,000,171,000,000,090,000
5500 DATA000,180,000,000,084,000,000,220
5510 DATA061,188,000,042,084,000,061,188
5520 DATA000,042,084,000,061,188,000,062
5530 DATA124,000,045,180,000,061,188,000
5540 DATA042,084,000,045,180,000,062,124
5550 DATA000,061,188,000,042,084,000,061
5560 DATA188,000,042,084,000,045,180,000
5570 DATA058,092,000,045,180,000,021,090
5580 DATA000,022,173,000,011,086,128,239
5590 DATA002,189,064,003,195,192,002,189
5600 DATA064,002,195,064,003,189,194,002
5610 DATA195,065,003,189,193,002,067,067
5620 DATA005,166,199,010,221,074,021,106
5630 DATA156,038,182,148,091,087,092,108
5640 DATA171,182,087,085,202,088,169,170
5650 DATA103,214,106,089,069,214,039,255
5660 DATA236,026,105,088,007,255,240,028
5670 DATA007,231,224,011,126,208,021,060
5680 DATA168,046,255,116,095,126,250,095
5690 DATA129,250,095,189,250,047,255,244
5700 DATA020,255,040,011,000,208,004,255
5710 DATA032,003,000,192,002,230,064,003
5720 DATA153,192,003,219,192,002,036,064
5730 DATA002,219,064,003,036,192,002,219
5740 DATA064,003,036,192,002,219,064,000
5750 DATA000,252,000,001,122,000,003,183
5760 DATA000,003,207,000,001,254,000,000
5770 DATA252,000,000,120,000,000,120,000
5780 DATA000,120,000,000,120,000,000,120
5790 DATA000,000,120,000,000,120,064,000
5800 DATA120,032,000,120,032,000,252,096
5810 DATA001,255,192,015,000,224,031,255
5820 DATA240,024,003,240,015,255,224,221
5830 PRINTCHR$(8)CHR$(142)CHR$(19):PRINT"[147][146] [151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
5840 PRINT" [168]                                   [168]"
5850 PRINT" [168]   np[146]  [169][146]o[151]n[187][172][151][146]n[184] [151][146]n[184] [146][184][151]n[162] [185][185] [151][146]n   [146]    [151][168]"
5860 PRINT" [168]   p[170] [169] [146][165][151]p[161][146][161][151]p  [146][151][146]n[160][146] [151]p [160][151][146]dnn[165][182][151][146]n[188]    [151][168]"
5870 PRINT" [168]   [170][170]    [146][165][151][170][161][146][161][151][170]  [151][146]m [146] [151][170]   [151][146][163] [165]   [146]    [151][168]"
5880 PRINT" [168]   [170][170] [146][169] [146][165][151][170][161][146][161][151][170]  [146] [151]m [146] [151][170]  [151][146]n  l n [146]    [151][168]"
5890 PRINT" [168]   [170][186] [151][146][167]  [146]l[151][170][190][188][151][146][170][185] [146]  [162] [146][162][151][170][162] [146][162][162] [146] [188][146][162] [146]    [151][168]"
5900 PRINT" [168]   n n[167]n nn nn n n  nn    nn  n    [168]"
5910 PRINT" [168]   [163][163]  [163][163] [163][163] [163][163]  [163][163][163] [163][163][163][163][163] [163][163][163]     [168]"
5920 PRINT" [168]    [156][162][162][162][162][162][162][162][162][162] [158][172][187][146] [172][146][190] [156][162][162][162][162][162][162][162][162][162][162][162]    [151][168]"
5930 PRINT" [168]    [184][184][184][184][184][184][184][184][184] [158][188][190][146] [172][146][190] [184][184][184][184][184][184][184][184][184][184][184]    [151][168]"
5940 PRINT" [168]                                   [168]"
5950 PRINT" [168]                                   [168]"
5960 PRINT" [168]    n[156] [146]  [169] [151][146]n[156]   [151][146]n[156]   [151][146]n[156] [146]  [151]n[156] [151][146]n[156] [151][146]n[156] [146]    ";
5970 PRINT"[151][168]"
5980 PRINT" [168]   [167]nn[156] [169] [151][146]n[165][156][160][146] [151]n[165][156] [146] [151]n[156] [151][146][165][156][160][146]  [151][165][156] [146]  [146] [146]    [151][168]"
5990 PRINT" [168]    [163][165][156]    [146] [151][165][156][160] [146] [151][165][156]   [146][169][151][165][156][160][146]  [151][165][156] [146]  [146]  [146]    [151][168]"
6000 PRINT" [168]     [165][156] [146][169] [146] [151][165][156] [151][146]n [165][156] [151][146]n[156][151][146][165][156] [146]  [151][165][156][160][146]  [151][146]mn[156] [146]  ";
6010 PRINT"  [151][168]"
6020 PRINT" [168]     [165][156] [151][146]n[165][156] [146] [151][165][156] [146]  [151][165][156] [151][146]mn[156] [151][146][165][156] [146]  [151][165][156] [146]  [146] [151][165][156] [146]";
6030 PRINT"    [151][168]"
6040 PRINT" [168]    n[156]  [146] [151][165][156]  [151][146][165][156]   [151][146][165][156] [146] [151][165][156] [151][146][165][156]   [151][146][165][156] [146]  [146] [151][165][156] [146]";
6050 PRINT"    [151][168]"
6060 PRINT" [168]   [167]n n n nn  nnn nnn  nnnnn nn    [168]"
6070 PRINT" [168]    [163][163]  [163][163] [163][163][163] [163]  [163] [163][163][163] [163] [163]  [163]     [168]"
6080 PRINT" [168]                                   [168]"
6090 PRINT" [168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
6100 PRINT"  [146] PLEASE WAIT.....PREPARING DUNJON! [151] "
6110 PRINT"      [C] 1988  NEMESIS  SOFTWARE     ";
6120 PRINT"";
6130 RETURN
6140 PRINT"[147][146]iuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiu";
6150 PRINT"jkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjk";
6160 PRINT"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";
6170 PRINT"   [180] [180] [180]  [180] [180]  [180]  [180][146] [160][165][146] [165]  [165]  [165][165] [165][160][165][162][164]";
6180 PRINT" [146]  [180][161][180][146] [180][146]  [180][146]  [180][146]  [146]  [146] [180][146] [160][165][146] [165][146]  [146]  [146] [165][165][161][165][146][160][165]"
6190 PRINT" [146]  [180][161][180][146]  [180][146][188] [180] [146][169][180][175] [146]  [146] [180][146] [160][165][146] [165]  [146]  [146] [165][165][161][165][146] [160][165]  ";
6200 PRINT" [146]  [180][161][180][146]  [180][146]  [180][146][180][146]  [146]  [146] [165][146]  [165][146] [165][146] [160][146]  [146] [165][165][161][165][146]  [146]  ";
6210 PRINT" ";
6220 PRINT"   [180][190][180][146]  [180]  [180][146] [180][146] [160][146]  [146] [180]  [165] [165][146]  [146]  [146] [165][165][190][180][146]  [165]  ";
6230 PRINT"[146][150][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
6240 PRINT"[151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
6250 PRINT"[168][168][168][168][168][168]                         [168][168][168][168][168][168][168][168][168]";
6260 PRINT"[168][168][168][168][168][168]  [156]YOU HAVE SURVIVED THE  [151][168][168][168][168][168][168][168][168][168]";
6270 PRINT"[168][168][168][168][168][168]     [156]MINES OF MERLIN!    [151][168][168][168][168][168][168][168][168][168]";
6280 PRINT"[168][168][168][168][168][168]                         [168][168][168][168][168][168][168][168][168]";
6290 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
6300 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
6310 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
6320 PRINT"[168][168]                      [160][160][160][160][160][160][160][160][160]   [151] [168][168][168]";
6330 PRINT"[168][168]#[158]THE CROWN OF [154]KING ARTHUR [158]HAS BEEN[151]#[168][168][168]";
6340 PRINT"[168][168]( [158] RETURNED TO ITS PROPER RESTING [151]([168][168][168]";
6350 PRINT"[168][168]([158]PLACE IN THE [153]SECRET DRUID NEMETON[151]([168][168][168]";
6360 PRINT"[168][168](          [158]IN IRELAND!!!          [151]([168][168][168]";
6370 PRINT"[168][168]*                                 *[168][168][168]";
6380 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
6390 PRINT"[168][168] DO YOU WISH TO PLAY AGAIN?[Y/N] [151][168][168][168][168]";
6400 POKE241,PEEK(241)OR128
6410 PRINT"[145]":PRINT"[148][168]";:PRINT"";
6420 RETURN
6430 POKEV+21,.:PRINT"[147][146]     ALAS,WARRIOR...THOU HAST BEEN"
6440 PRINT"  [169]    [146]   [146]         [146]       [146]    [146]    [146]    "
6450 PRINT"    [146]      [146]    [160][146]    [146]     [182][146]    [146]    [146]    "
6460 PRINT"      [146]   [146]        [160][146]     [182][146]    [146]     [146]    "
6470 PRINT"       [146] [160][160][146]    [160][146]   [160][146]    [160][182][146]  [160][160][146]     [146]    "
6480 PRINT"    [169]  [146]  [160][146]    [160][146]   [160][146]    [160][182][146]  [160][160][146]      [146]    "
6490 PRINT"   [169]  [146][169]      [146]  [146]    [146]     [182][146]  [160][160][146]      [146]  [175][175]"
6500 PRINT"     [146][169]       [146]  [146]   [160][146]       [146]  [160][146]      [146]    "
6510 PRINT"      [RATHER BRUTALLY,I MIGHT ADD]"
6520 PRINT
6530 PRINT"  [156]  THE ADVENTURERS UNION FOUND YOUR   "
6540 PRINT"   SOMEWHAT DISFIGURED REMAINS STUFFED "
6550 PRINT"   HASTILY IN ONE OF THE COFFINS INSIDE"
6560 PRINT"   THE MINE,AND RETURNED YOUR BODY TO  "
6570 PRINT"   YOUR RELATIVES FOR A BURIAL FITTING "
6580 PRINT"   TO A KNIGHT ERRANT SLAIN WHILE ON A "
6590 PRINT"   NOBLE AND ENDEARING QUEST.....      "
6600 PRINT
6610 PRINT"     IF YOU ARE ABLE,I THINK I COULD"
6620 PRINT"     RESURRECT YOU.WOULD YOU LIKE TO"
6630 PRINT"    TRY YOUR LUCK IN THE MINES AGAIN?"
6640 PRINT
6650 PRINT"      TYPE [Y] FOR YES TO CONTINUE,"
6660 PRINT"      OR [N] FOR NO TO END GAME AND"
6670 PRINT"      [159]RETURN TO COMMODORE BASIC 2.0";
6680 PRINT"";:RETURN